home *** CD-ROM | disk | FTP | other *** search
/ Clickx 115 / Clickx 115.iso / software / tools / windows / tails-i386-0.16.iso / live / filesystem.squashfs / usr / share / perl5 / Dpkg / Gettext.pm < prev    next >
Encoding:
Perl POD Document  |  2012-09-17  |  1.8 KB  |  67 lines
  1. # Copied from /usr/share/perl5/Debconf/Gettext.pm
  2. #
  3. # Redistribution and use in source and binary forms, with or without
  4. # modification, are permitted provided that the following conditions
  5. # are met:
  6. # 1. Redistributions of source code must retain the above copyright
  7. #    notice, this list of conditions and the following disclaimer.
  8. # 2. Redistributions in binary form must reproduce the above copyright
  9. #    notice, this list of conditions and the following disclaimer in the
  10. #    documentation and/or other materials provided with the distribution.
  11. #
  12. # THIS SOFTWARE IS PROVIDED BY AUTHORS AND CONTRIBUTORS ``AS IS'' AND
  13. # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  14. # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  15. # ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE
  16. # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  17. # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  18. # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  19. # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  20. # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  21. # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  22. # SUCH DAMAGE.
  23.  
  24. package Dpkg::Gettext;
  25.  
  26. use strict;
  27. use warnings;
  28.  
  29. our $VERSION = "1.00";
  30.  
  31. BEGIN {
  32.     eval 'use Locale::gettext';
  33.     if ($@) {
  34.         eval q{
  35.             sub _g {
  36.                 return shift;
  37.             }
  38.             sub textdomain {
  39.             }
  40.             sub ngettext {
  41.                 if ($_[2] == 1) {
  42.                     return $_[0];
  43.                 } else {
  44.                     return $_[1];
  45.                 }
  46.             }
  47.             sub P_ {
  48.                 return ngettext(@_);
  49.             }
  50.         };
  51.     } else {
  52.         eval q{
  53.             sub _g {
  54.                 return gettext(shift);
  55.             }
  56.             sub P_ {
  57.                 return ngettext(@_);
  58.             }
  59.         };
  60.     }
  61. }
  62.  
  63. use base qw(Exporter);
  64. our @EXPORT=qw(_g P_ textdomain ngettext);
  65.  
  66. 1;
  67.